Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Science/Biology/WayeCas Folder/cassette-stack 1/background_2743.txt

Text File | 1989-05-17 | 8.3 KB | 381 lines

-- background: 2743 from stack: in
-- bmap block id: 3271
-- flags: 0000
-- background id: 0
-- name: cards
----- HyperTalk script -----
on openStack
  hide message box
  show menuBar
  pass openStack
end openStack



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=209 top=297 right=320 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to NEXT CARD
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=178 top=297 right=320 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=132 right=149 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: date sequenced


-- part 24 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=103 top=59 right=76 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: number


-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=128 top=92 right=113 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: colony pure


-- part 26 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=128 top=285 right=303 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: confirmed


-- part 27 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=147 right=168 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: compressed


-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=162 right=183 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: oligo #


-- part 29 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=154 top=113 right=133 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: other comments


-- part 30 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=170 top=204 right=223 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: date DNA prepared


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=138 top=236 right=255 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: location DNA


-- part 32 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=149 top=266 right=285 bottom=339
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: location phage


-- part 34 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=108 top=185 right=203 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: rest enz


-- part 37 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=109 top=40 right=61 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: sequence


-- part 38 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=102 top=76 right=93 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: good


-- part 43 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=391 top=174 right=224 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: export
----- HyperTalk script -----
on mouseUp
  global it
  get name of card
  put it into card
  PUT "EXPORTED"INTO FIELD 14
  put item 1 of field "number" into num
  put item 1 of field "sequence" into seq
  go to card 1 of stack "cassette-stack 2"
  -- %%  put your own card number in place of 1  %%
  --change card 1 into your card number
  --change stack "cassette-stack 2" into your stack name
  put num into field 2
  put seq into field 1
  put card into field 3
end mouseUp



-- part 44 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=244 right=260 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: export


-- part 46 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=386 top=43 right=89 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HELP
----- HyperTalk script -----
on mouseUp
  get name of card
  put it into card

  go to stack "cassette-stack 2"
  put item 1 of card into field 2 of card "help"
  go to card "help"
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=387 top=105 right=154 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: STATISTICS
----- HyperTalk script -----
on mouseUp
  put empty into message box
  put 0 into T
  put 0 into c
  put 0 into g
  put 0 into a
  ask "No.of cards to be sorted-this+previous cards:"
  put it into y
  ask "No. of positions to be analysed:-"
  put it into b
  if y is "cancel" then
    exit mouseup
  end if
  if y>0 then
    repeat with y=1 to y
      put field "number" into num
      put 1 into x
      repeat b times
        get charToNum of character x of field "sequence"
        if it=84 then add 1 to T
        if it=67 then add 1 to c
        if it=71 then add 1 to g
        if it=65 then add 1 to a
        add 1 to x
      end repeat
      go to previous card
    end repeat
    put " Number of cards = y" into item 1 of message
    put y into last word of item 1 of message
    put " T = tt" into item 2 of message
    put t into last word of item 2 of message
    put " C = cc" into item 3 of message
    put c into last word of item 3 of message
    put " G = gg" into item 4 of message
    put g into last word of item 4 of message
    put " A = aa" into item 5 of message
    put a into last word of item 5 of message

  end if
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=391 top=266 right=317 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "sequence" or "number" or "Cancel"
  if it is "sequence"
  then sort by first item of field "sequence"
else if it is "number"
then sort by first item of field "number"
end mouseUp